* lisp/mouse.el (context-menu-mode-map): Bind [menu] to context-menu-open.

https://lists.gnu.org/archive/html/emacs-devel/2021-08/msg01004.html

diff --git a/lisp/mouse.el b/lisp/mouse.el
index a490aac74455c715feb68497d4985b0052d19e9b..d137419e02af4f49e3faee9a01d73258ac54977e 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -468,6 +468,7 @@ the same menu with changes such as added new menu items."
   (let ((map (make-sparse-keymap)))
     (define-key map [mouse-3] nil)
     (define-key map [down-mouse-3] context-menu-entry)
+    (define-key map [menu] #'context-menu-open)
     (when (featurep 'ns)
       (define-key map [C-mouse-1] nil)
       (define-key map [C-down-mouse-1] context-menu-entry))